home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jdoc_ui.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  4.7 KB  |  136 lines
  1. # jdoc_ui.tcl - gui procedures for jdoc (also bindings)
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ##############################################################################
  8. # jdoc:mkmenus - menu bar
  9. ##############################################################################
  10.  
  11. proc jdoc:mkmenus {} {
  12.   frame .menu -borderwidth 2 -relief raised
  13.   
  14.   jdoc:mkmenu:doc
  15.   jdoc:mkmenu:document
  16.   jdoc:mkmenu:sections
  17.   
  18.   pack .menu -in . -side top -fill x
  19.   
  20.   tk_menuBar .menu .menu.doc .menu.document .menu.sections
  21. }
  22.  
  23. ##############################################################################
  24. # jdoc:mkmenu:doc - doc menu
  25. ##############################################################################
  26.  
  27. proc jdoc:mkmenu:doc {} {
  28.   menubutton .menu.doc -text {Doc Viewer} -menu .menu.doc.m
  29.   pack .menu.doc -in .menu -side left
  30.  
  31.   menu .menu.doc.m
  32.   .menu.doc.m add command -label {Help with Doc Viewer} -accelerator {[h]} \
  33.     -command {jdoc:cmd:help}
  34.   .menu.doc.m add command -label {About the Doc Viewer . . .} \
  35.     -command {jdoc:cmd:about}
  36.   .menu.doc.m add command -label {Global Preferences . . .} \
  37.     -accelerator {[G]} \
  38.     -command {j:global_pref_panel}
  39.   .menu.doc.m add command -label {Doc Viewer Preferences . . .} \
  40.     -accelerator {[P]} \
  41.     -command {jdoc:cmd:doc_prefs}
  42.   .menu.doc.m add separator
  43.   .menu.doc.m add command -label {Issue Tcl Command . . .} \
  44.     -accelerator {[T]} -command {j:prompt_tcl}
  45.   .menu.doc.m add command -label {Issue Unix Command . . .} \
  46.     -accelerator {[U]} -command {j:prompt_unix}
  47.   .menu.doc.m add separator
  48.   .menu.doc.m add command -label {Quit} -accelerator {[q]} \
  49.     -command {destroy .}
  50. }
  51.  
  52. ##############################################################################
  53. # jdoc:mkmenu:document - document menu
  54. ##############################################################################
  55.  
  56. proc jdoc:mkmenu:document {} {
  57.   menubutton .menu.document -text {Document} -menu .menu.document.m
  58.   menu .menu.document.m
  59.   .menu.document.m add command -label {Load . . .} \
  60.     -accelerator {[l]} -command {jdoc:cmd:load}
  61.   .menu.document.m add command -label {Save As . . .} \
  62.     -command "j:tc:saveas .t"
  63.   .menu.document.m add command -label {Print} \
  64.     -command "jdoc:cmd:print_postscript"
  65.   .menu.document.m add separator
  66.   .menu.document.m add command -label {Find . . .} -accelerator {[f]} \
  67.     -command "j:find -replace 0 .t"
  68.  
  69.   pack .menu.document -in .menu -side left
  70. }
  71.  
  72. ##############################################################################
  73. # jdoc:mkmenu:sections - sections menu
  74. ##############################################################################
  75.  
  76. proc jdoc:mkmenu:sections {} {
  77.   menubutton .menu.sections -text {Sections} -menu .menu.sections.m
  78.   pack .menu.sections -in .menu -side left
  79.  
  80.   menu .menu.sections.m
  81. }
  82.  
  83. ##############################################################################
  84. # jdoc:mkbuttons - buttons at bottom
  85. ##############################################################################
  86.  
  87. proc jdoc:mkbuttons {} {
  88.   j:buttonbar .b -buttons {
  89.     {done Done {destroy .}}
  90.     {open "Load..." {jdoc:cmd:load}}
  91.     {print "Print" {jdoc:cmd:print_postscript}}
  92.     {find "Find..." {j:find -replace 0 .t}}
  93.   }
  94.   pack .b [j:rule .] -in . -side bottom -fill x
  95. }
  96.  
  97. ##############################################################################
  98. # jdoc:mktext - text widget
  99. ##############################################################################
  100.  
  101. proc jdoc:mktext {} {
  102.   global J_PREFS
  103.   if {[lsearch [array names J_PREFS] {scrollbarside}] == -1} {
  104.     set J_PREFS(scrollbarside) right ;# make sure it's defined
  105.   }
  106.   text .t -yscrollcommand {.s set} \
  107.     -width 70 -height 18 -borderwidth 4 \
  108.     -setgrid true -wrap word
  109.   scrollbar .s -relief flat -command {.t yview}
  110.   pack .s [j:rule .] -in . -side $J_PREFS(scrollbarside) -fill y
  111.   pack .t -in . -side $J_PREFS(scrollbarside) -fill both -expand y
  112.   jdoc:configure_text .t
  113.   
  114.   focus .t
  115.   catch {focus default .t}            ;# caught for Tk 4.0
  116.   tk_bindForTraversal .t
  117. }
  118.  
  119.  
  120. ##############################################################################
  121. # jdoc:mkbindings widgets - text widget command bindings
  122. ##############################################################################
  123.  
  124. proc jdoc:mkbindings { { widgets .t } } {
  125.   foreach w $widgets {
  126.     bind $w <Meta-f> {j:find -replace 0 .t}
  127.     bind $w <Meta-h> {jdoc:cmd:help}
  128.     bind $w <Meta-l> {jdoc:cmd:load}
  129.     bind $w <Meta-q> {jdoc:cmd:quit}
  130.     bind $w <Meta-G> {j:global_pref_panel}
  131.     bind $w <Meta-P> {jdoc:cmd:doc_prefs}
  132.     bind $w <Meta-T> {j:prompt_tcl}
  133.     bind $w <Meta-U> {j:prompt_unix}
  134.   }
  135. }
  136.